home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 4 / Meeting Pearls Vol. IV (1996)(GTI - Schatztruhe)[!].iso / Pearls / dev / boopsi / TextFieldClass / TestClass / Source / prefs.c < prev    next >
C/C++ Source or Header  |  1994-11-12  |  9KB  |  308 lines
  1. /*
  2.  *  Source machine generated by GadToolsBox V2.0b
  3.  *  which is (c) Copyright 1991-1993 Jaba Development
  4.  *
  5.  *  GUI Designed by : Mark Thomas
  6.  */
  7.  
  8. #include <string.h>
  9.  
  10. #include <exec/types.h>
  11. #include <intuition/intuition.h>
  12. #include <intuition/classes.h>
  13. #include <intuition/classusr.h>
  14. #include <intuition/imageclass.h>
  15. #include <intuition/gadgetclass.h>
  16. #include <libraries/gadtools.h>
  17. #include <graphics/displayinfo.h>
  18. #include <graphics/gfxbase.h>
  19.  
  20. #include <proto/exec.h>
  21. #include <proto/intuition.h>
  22. #include <proto/gadtools.h>
  23. #include <proto/graphics.h>
  24. #include <proto/utility.h>
  25. #include <proto/diskfont.h>
  26.  
  27. #include "prefs.h"
  28.  
  29. struct Screen         *Scr = NULL;
  30. UBYTE                 *PubScreenName = NULL;
  31. APTR                   VisualInfo = NULL;
  32. struct Window         *TextFieldPrefsWnd = NULL;
  33. struct Gadget         *TextFieldPrefsGList = NULL;
  34. struct IntuiMessage    TextFieldPrefsMsg;
  35. struct Gadget         *TextFieldPrefsGadgets[TextFieldPrefs_CNT];
  36. UWORD                  TextFieldPrefsLeft = 0;
  37. UWORD                  TextFieldPrefsTop = 222;
  38. UWORD                  TextFieldPrefsWidth = 620;
  39. UWORD                  TextFieldPrefsHeight = 216;
  40. UBYTE                 *TextFieldPrefsWdt = (UBYTE *)"TextField Prefs (not particularly font sensitive)";
  41. struct TextAttr       *Font, Attr;
  42. UWORD                  FontX, FontY;
  43. UWORD                  OffX, OffY;
  44. struct TextFont       *TextFieldPrefsFont = NULL;
  45.  
  46. UBYTE *align_radio0Labels[] = {
  47.     (UBYTE *)"Left",
  48.     (UBYTE *)"Center",
  49.     (UBYTE *)"Right",
  50.     NULL };
  51.  
  52. UBYTE *blink_radio0Labels[] = {
  53.     (UBYTE *)"Off",
  54.     (UBYTE *)"Slow",
  55.     (UBYTE *)"Medium",
  56.     (UBYTE *)"Fast",
  57.     NULL };
  58.  
  59. UBYTE *border_radio0Labels[] = {
  60.     (UBYTE *)"None",
  61.     (UBYTE *)"Bevel",
  62.     (UBYTE *)"Double-bevel",
  63.     NULL };
  64.  
  65. UWORD TextFieldPrefsGTypes[] = {
  66.     CHECKBOX_KIND,
  67.     CHECKBOX_KIND,
  68.     CHECKBOX_KIND,
  69.     CHECKBOX_KIND,
  70.     CHECKBOX_KIND,
  71.     CHECKBOX_KIND,
  72.     MX_KIND,
  73.     CHECKBOX_KIND,
  74.     CHECKBOX_KIND,
  75.     SLIDER_KIND,
  76.     MX_KIND,
  77.     MX_KIND,
  78.     CHECKBOX_KIND,
  79.     CHECKBOX_KIND,
  80.     TEXT_KIND,
  81.     TEXT_KIND,
  82.     TEXT_KIND,
  83.     TEXT_KIND,
  84.     CHECKBOX_KIND,
  85.     CHECKBOX_KIND
  86. };
  87.  
  88. struct NewGadget TextFieldPrefsNGad[] = {
  89.     9, 10, 26, 11, (UBYTE *)"Block Cursor", NULL, GD_block_cursor_check, PLACETEXT_RIGHT, NULL, (APTR)block_cursor_checkClicked,
  90.     9, 34, 26, 11, (UBYTE *)"Disable", NULL, GD_disable_check, PLACETEXT_RIGHT, NULL, (APTR)disable_checkClicked,
  91.     9, 59, 26, 11, (UBYTE *)"No Ghost", NULL, GD_no_ghost_check, PLACETEXT_RIGHT, NULL, (APTR)no_ghost_checkClicked,
  92.     9, 140, 26, 11, (UBYTE *)"Italic", NULL, GD_italic_check, PLACETEXT_RIGHT, NULL, (APTR)italic_checkClicked,
  93.     9, 165, 26, 11, (UBYTE *)"Underline", NULL, GD_underline_check, PLACETEXT_RIGHT, NULL, (APTR)underline_checkClicked,
  94.     9, 190, 26, 11, (UBYTE *)"Bold", NULL, GD_bold_check, PLACETEXT_RIGHT, NULL, (APTR)bold_checkClicked,
  95.     172, 140, 17, 9, NULL, NULL, GD_align_radio, PLACETEXT_RIGHT, NULL, (APTR)align_radioClicked,
  96.     172, 10, 26, 11, (UBYTE *)"Vertical Center", NULL, GD_vcenter_check, PLACETEXT_RIGHT, NULL, (APTR)vcenter_checkClicked,
  97.     172, 34, 26, 11, (UBYTE *)"Ruled Paper", NULL, GD_ruled_paper_check, PLACETEXT_RIGHT, NULL, (APTR)ruled_paper_checkClicked,
  98.     371, 165, 102, 19, (UBYTE *)"Spacing:", NULL, GD_spacing_slider, PLACETEXT_LEFT, NULL, (APTR)spacing_sliderClicked,
  99.     526, 33, 17, 9, NULL, NULL, GD_blink_radio, PLACETEXT_RIGHT, NULL, (APTR)blink_radioClicked,
  100.     371, 33, 17, 9, NULL, NULL, GD_border_radio, PLACETEXT_RIGHT, NULL, (APTR)border_radioClicked,
  101.     371, 114, 26, 11, (UBYTE *)"Inverted", NULL, GD_invert_check, PLACETEXT_RIGHT, NULL, (APTR)invert_checkClicked,
  102.     172, 84, 26, 11, (UBYTE *)"Show Partial", NULL, GD_partial_check, PLACETEXT_RIGHT, NULL, (APTR)partial_checkClicked,
  103.     371, 10, 88, 24, NULL, NULL, GD_border_text, 0, NULL, NULL,
  104.     9, 114, 92, 26, NULL, NULL, GD_style_text, 0, NULL, NULL,
  105.     172, 114, 112, 24, NULL, NULL, GD_align_text, 0, NULL, NULL,
  106.     526, 10, 97, 21, NULL, NULL, GD_cursor_text, 0, NULL, NULL,
  107.     172, 59, 26, 11, (UBYTE *)"Notepad Colors", NULL, GD_notepad_check, PLACETEXT_RIGHT, NULL, (APTR)notepad_checkClicked,
  108.     9, 84, 26, 11, (UBYTE *)"Read Only", NULL, GD_readonly_check, PLACETEXT_RIGHT, NULL, (APTR)readonly_checkClicked
  109. };
  110.  
  111. ULONG TextFieldPrefsGTags[] = {
  112.     (TAG_DONE),
  113.     (TAG_DONE),
  114.     (TAG_DONE),
  115.     (TAG_DONE),
  116.     (TAG_DONE),
  117.     (TAG_DONE),
  118.     (GTMX_Labels), (ULONG)&align_radio0Labels[ 0 ], (TAG_DONE),
  119.     (TAG_DONE),
  120.     (TAG_DONE),
  121.     (GTSL_Max), 50, (GTSL_MaxLevelLen), 11, (GTSL_LevelFormat), (ULONG)"%ld pixels", (GTSL_LevelPlace), (PLACETEXT_RIGHT), (PGA_Freedom), LORIENT_HORIZ, (GA_RelVerify), TRUE, (TAG_DONE),
  122.     (GTMX_Labels), (ULONG)&blink_radio0Labels[ 0 ], (GTMX_Active), 2, (TAG_DONE),
  123.     (GTMX_Labels), (ULONG)&border_radio0Labels[ 0 ], (GTMX_Active), 2, (TAG_DONE),
  124.     (TAG_DONE),
  125.     (TAG_DONE),
  126.     (GTTX_Text), (ULONG)"Border:", (GTTX_CopyText), TRUE, (TAG_DONE),
  127.     (GTTX_Text), (ULONG)"Style:", (TAG_DONE),
  128.     (GTTX_Text), (ULONG)"Align:", (TAG_DONE),
  129.     (GTTX_Text), (ULONG)"Cursor:", (TAG_DONE),
  130.     (TAG_DONE)
  131. };
  132.  
  133. static UWORD ComputeX( UWORD value )
  134. {
  135.     return(( UWORD )((( FontX * value ) + 5 ) / 10 ));
  136. }
  137.  
  138. static UWORD ComputeY( UWORD value )
  139. {
  140.     return(( UWORD )((( FontY * value ) + 9 ) / 18 ));
  141. }
  142.  
  143. static void ComputeFont( UWORD width, UWORD height )
  144. {
  145.     Forbid();
  146.     Font = &Attr;
  147.     Font->ta_Name = (STRPTR)GfxBase->DefaultFont->tf_Message.mn_Node.ln_Name;
  148.     Font->ta_YSize = FontY = GfxBase->DefaultFont->tf_YSize;
  149.     FontX = GfxBase->DefaultFont->tf_XSize;
  150.     Permit();
  151.  
  152.     OffX = Scr->WBorLeft;
  153.     OffY = Scr->RastPort.TxHeight + Scr->WBorTop + 1;
  154.  
  155.     if ( width && height ) {
  156.         if (( ComputeX( width ) + OffX + Scr->WBorRight ) > Scr->Width )
  157.             goto UseTopaz;
  158.         if (( ComputeY( height ) + OffY + Scr->WBorBottom ) > Scr->Height )
  159.             goto UseTopaz;
  160.     }
  161.     return;
  162.  
  163. UseTopaz:
  164.     Font->ta_Name = (STRPTR)"topaz.font";
  165.     FontX = FontY = Font->ta_YSize = 8;
  166. }
  167.  
  168. int SetupScreen( void )
  169. {
  170.     if ( ! ( Scr = LockPubScreen( PubScreenName )))
  171.         return( 1L );
  172.  
  173.     ComputeFont( 0, 0 );
  174.  
  175.     if ( ! ( VisualInfo = GetVisualInfo( Scr, TAG_DONE )))
  176.         return( 2L );
  177.  
  178.     return( 0L );
  179. }
  180.  
  181. void CloseDownScreen( void )
  182. {
  183.     if ( VisualInfo ) {
  184.         FreeVisualInfo( VisualInfo );
  185.         VisualInfo = NULL;
  186.     }
  187.  
  188.     if ( Scr        ) {
  189.         UnlockPubScreen( NULL, Scr );
  190.         Scr = NULL;
  191.     }
  192. }
  193.  
  194. int HandleTextFieldPrefsIDCMP( void )
  195. {
  196.     struct IntuiMessage    *m;
  197.     int            (*func)(void);
  198.     BOOL            running = TRUE;
  199.  
  200.     while( m = GT_GetIMsg( TextFieldPrefsWnd->UserPort )) {
  201.  
  202.         CopyMem(( char * )m, ( char * )&TextFieldPrefsMsg, (long)sizeof( struct IntuiMessage ));
  203.  
  204.         GT_ReplyIMsg( m );
  205.  
  206.         switch ( TextFieldPrefsMsg.Class ) {
  207.  
  208.             case    IDCMP_REFRESHWINDOW:
  209.                 GT_BeginRefresh( TextFieldPrefsWnd );
  210.                 GT_EndRefresh( TextFieldPrefsWnd, TRUE );
  211.                 break;
  212.  
  213.             case    IDCMP_GADGETUP:
  214.             case    IDCMP_GADGETDOWN:
  215.                 func = ( int (*)() )(( struct Gadget * )TextFieldPrefsMsg.IAddress )->UserData;
  216.                 running = func();
  217.                 break;
  218.  
  219.             case    IDCMP_MOUSEMOVE:
  220.                 if (TextFieldPrefsMsg.IAddress == TextFieldPrefsGadgets[GDX_spacing_slider]) {
  221.                     func = ( int (*)() )(( struct Gadget * )TextFieldPrefsMsg.IAddress )->UserData;
  222.                     running = func();
  223.                 }
  224.                 break;
  225.         }
  226.     }
  227.     return( running );
  228. }
  229.  
  230. int OpenTextFieldPrefsWindow( void )
  231. {
  232.     struct NewGadget    ng;
  233.     struct Gadget    *g;
  234.     UWORD        lc, tc;
  235.     UWORD        wleft = TextFieldPrefsLeft, wtop = TextFieldPrefsTop, ww, wh;
  236.  
  237.     ComputeFont( TextFieldPrefsWidth, TextFieldPrefsHeight );
  238.  
  239.     ww = ComputeX( TextFieldPrefsWidth );
  240.     wh = ComputeY( TextFieldPrefsHeight );
  241.  
  242.     if (( wleft + ww + OffX + Scr->WBorRight ) > Scr->Width ) wleft = Scr->Width - ww;
  243.     if (( wtop + wh + OffY + Scr->WBorBottom ) > Scr->Height ) wtop = Scr->Height - wh;
  244.  
  245.     if ( ! ( TextFieldPrefsFont = OpenDiskFont( Font )))
  246.         return( 5L );
  247.  
  248.     if ( ! ( g = CreateContext( &TextFieldPrefsGList )))
  249.         return( 1L );
  250.  
  251.     for( lc = 0, tc = 0; lc < TextFieldPrefs_CNT; lc++ ) {
  252.  
  253.         CopyMem((char * )&TextFieldPrefsNGad[ lc ], (char * )&ng, (long)sizeof( struct NewGadget ));
  254.  
  255.         ng.ng_VisualInfo = VisualInfo;
  256.         ng.ng_TextAttr   = Font;
  257.         ng.ng_LeftEdge   = OffX + ComputeX( ng.ng_LeftEdge );
  258.         ng.ng_TopEdge    = OffY + ComputeY( ng.ng_TopEdge );
  259.         ng.ng_Width      = ComputeX( ng.ng_Width );
  260.         ng.ng_Height     = ComputeY( ng.ng_Height);
  261.  
  262.         TextFieldPrefsGadgets[ lc ] = g = CreateGadgetA((ULONG)TextFieldPrefsGTypes[ lc ], g, &ng, ( struct TagItem * )&TextFieldPrefsGTags[ tc ] );
  263.  
  264.         while( TextFieldPrefsGTags[ tc ] ) tc += 2;
  265.         tc++;
  266.  
  267.         if ( NOT g )
  268.             return( 2L );
  269.     }
  270.  
  271.     if ( ! ( TextFieldPrefsWnd = OpenWindowTags( NULL,
  272.                 WA_Left,    wleft,
  273.                 WA_Top,        wtop,
  274.                 WA_Width,    ww + OffX + Scr->WBorRight,
  275.                 WA_Height,    wh + OffY + Scr->WBorBottom,
  276.                 WA_IDCMP,    CHECKBOXIDCMP|MXIDCMP|SLIDERIDCMP|TEXTIDCMP|IDCMP_INTUITICKS|IDCMP_REFRESHWINDOW,
  277.                 WA_Flags,    WFLG_DRAGBAR|WFLG_DEPTHGADGET|WFLG_SMART_REFRESH|WFLG_ACTIVATE,
  278.                 WA_Gadgets,    TextFieldPrefsGList,
  279.                 WA_Title,    TextFieldPrefsWdt,
  280.                 WA_ScreenTitle,    "Window created with GadToolsBox",
  281.                 WA_PubScreen,    Scr,
  282.                 TAG_DONE )))
  283.     return( 4L );
  284.  
  285.     GT_RefreshWindow( TextFieldPrefsWnd, NULL );
  286.  
  287.     return( 0L );
  288. }
  289.  
  290. void CloseTextFieldPrefsWindow( void )
  291. {
  292.     if ( TextFieldPrefsWnd        ) {
  293.         CloseWindow( TextFieldPrefsWnd );
  294.         TextFieldPrefsWnd = NULL;
  295.     }
  296.  
  297.     if ( TextFieldPrefsGList      ) {
  298.         FreeGadgets( TextFieldPrefsGList );
  299.         TextFieldPrefsGList = NULL;
  300.     }
  301.  
  302.     if ( TextFieldPrefsFont ) {
  303.         CloseFont( TextFieldPrefsFont );
  304.         TextFieldPrefsFont = NULL;
  305.     }
  306. }
  307.  
  308.